(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      6143,        216]
NotebookOptionsPosition[      5226,        181]
NotebookOutlinePosition[      5569,        196]
CellTagsIndexPosition[      5526,        193]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"H", "[", "s_", "]"}], ":=", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "L"}], "*", "s"}]], 
   RowBox[{"s", "+", "0.5"}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", "1"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5406294143678446`*^9, 3.540629493417338*^9}, {
  3.540632377252567*^9, 3.5406323858123956`*^9}, {3.540632458301347*^9, 
  3.540632464851281*^9}, {3.540632693658993*^9, 3.5406326957789717`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"b1", "=", 
   RowBox[{
    RowBox[{"1", "-", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"L", "-", "T"}], ")"}], "\[Tau]"]]}], "//", 
    "N"}]}]}]], "Input",
 CellChangeTimes->{{3.54063260096992*^9, 3.5406326859190702`*^9}}],

Cell[BoxData["0.3296799539643607`"], "Output",
 CellChangeTimes->{{3.540631557692532*^9, 3.540631570572403*^9}, 
   3.5406325260906687`*^9, {3.54063267590917*^9, 3.540632698258947*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"b2", "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"-", "1"}], "2"]], "*", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["0.2", "2"]], "-", "1"}], ")"}]}], "//", 
    "N"}]}]}]], "Input",
 CellChangeTimes->{{3.540632708248847*^9, 3.540632757748748*^9}}],

Cell[BoxData["0.06378938632300593`"], "Output",
 CellChangeTimes->{3.5406327585787477`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a1", "=", 
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"-", "T"}], "\[Tau]"]]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.5406327663287477`*^9, 3.5406328121887474`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.6065306597126334`"}]], "Output",
 CellChangeTimes->{{3.5406328071887474`*^9, 3.5406328128687477`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "z_", "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"b1", "*", 
     SuperscriptBox["z", 
      RowBox[{"-", "1"}]]}], "+", 
    RowBox[{"b2", "*", 
     SuperscriptBox["z", 
      RowBox[{"-", "2"}]]}]}], 
   RowBox[{"1", "+", 
    RowBox[{"a1", "*", 
     SuperscriptBox["z", 
      RowBox[{"-", "1"}]]}]}]]}]], "Input",
 CellChangeTimes->{{3.540633293358076*^9, 3.5406333871371384`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "z", "]"}], "//", "Simplify"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5406333710273*^9, 3.5406333992270174`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"0.06378938632300593`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.3296799539643607`", " ", "Z"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "0.6065306597126334`"}], "+", "Z"}], ")"}], " ", "Z"}]], 
   "/", "0.3296799539643607"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.5406335927067475`*^9, 3.5406336008567476`*^9}, {
  3.540633633946748*^9, 3.5406336369767475`*^9}, {3.54063394021875*^9, 
  3.540633941640625*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"0.19348882319336208`", "\[InvisibleSpace]", "+", 
   RowBox[{"1.`", " ", "Z"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "0.6065306597126334`"}], "+", "Z"}], ")"}], " ", 
   "Z"}]]], "Output",
 CellChangeTimes->{3.5406336019967475`*^9, 3.5406336375867476`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"e", "[", "z_", "]"}], ":=", 
  FractionBox["z", 
   RowBox[{"z", "-", "1"}]]}]], "Input",
 CellChangeTimes->{{3.540633489696748*^9, 3.5406335124567475`*^9}}],

Cell["FTBO", "Text",
 CellChangeTimes->{{3.5406335482667475`*^9, 3.5406335505567474`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "z", "]"}], "*", 
   RowBox[{"e", "[", "z", "]"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.5406335533967476`*^9, 3.540633564906748*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"z", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["0.06378938632300593`", 
      SuperscriptBox["Z", "2"]], "+", 
     FractionBox["0.3296799539643607`", "Z"]}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1.`"}], "+", "z"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1.`", "\[InvisibleSpace]", "-", 
     FractionBox["0.6065306597126334`", "Z"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5406335658467474`*^9}]
}, Open  ]]
},
WindowSize->{607, 637},
WindowMargins->{{50, Automatic}, {Automatic, 34}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 640, 16, 111, "Input"],
Cell[CellGroupData[{
Cell[1210, 40, 336, 10, 60, "Input"],
Cell[1549, 52, 185, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1771, 59, 421, 13, 68, "Input"],
Cell[2195, 74, 91, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2323, 80, 254, 7, 39, "Input"],
Cell[2580, 89, 133, 2, 30, "Output"]
}, Open  ]],
Cell[2728, 94, 441, 15, 50, "Input"],
Cell[3172, 111, 191, 5, 52, "Input"],
Cell[3366, 118, 520, 13, 70, "Input"],
Cell[3889, 133, 320, 9, 49, "Output"],
Cell[4212, 144, 192, 5, 45, "Input"],
Cell[4407, 151, 90, 1, 29, "Text"],
Cell[CellGroupData[{
Cell[4522, 156, 199, 5, 31, "Input"],
Cell[4724, 163, 486, 15, 67, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
